home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Dev / basic / amiblitz_ful.lha / AmiBlitz2 / Tools / REDMapEditor / Source / Demo3.bb < prev    next >
Unknown  |  2000-09-16  |  2.0 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: '; RED Map Editor V2.5' default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 52 45 44 20 4d 61 | 70 20 45 64 69 74 6f 72 |; RED Ma|p Editor|
|00000010| 20 56 32 2e 35 00 3b 00 | 3b 20 41 52 65 78 78 20 | V2.5.;.|; ARexx |
|00000020| 44 65 6d 6f 20 50 72 6f | 67 72 61 6d 20 33 2e 00 |Demo Pro|gram 3..|
|00000030| 3b 00 3b 20 52 65 71 75 | 69 72 65 73 3a 00 3b 20 |;.; Requ|ires:.; |
|00000040| 20 20 20 20 20 20 20 20 | 20 20 52 45 58 58 4d 41 |        |  REXXMA|
|00000050| 53 54 20 74 6f 20 62 65 | 20 72 75 6e 6e 69 6e 67 |ST to be| running|
|00000060| 00 3b 20 20 20 20 20 20 | 20 20 20 20 20 52 45 44 |.;      |     RED|
|00000070| 20 4d 61 70 20 45 64 69 | 74 6f 72 20 56 32 2e 35 | Map Edi|tor V2.5|
|00000080| 20 74 6f 20 62 65 20 72 | 75 6e 6e 69 6e 67 00 3b | to be r|unning.;|
|00000090| 20 20 20 20 20 20 20 20 | 20 20 20 4f 53 32 2b 00 |        |   OS2+.|
|000000a0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 52 45 44 42 |;       |    REDB|
|000000b0| 6c 69 74 7a 4c 69 62 73 | 20 56 32 2e 35 00 3b 00 |litzLibs| V2.5.;.|
|000000c0| 3b 20 41 6e 20 65 78 61 | 6d 70 6c 65 20 4d 61 70 |; An exa|mple Map|
|000000d0| 20 6c 6f 61 64 65 72 2c | 20 77 68 69 63 68 20 6c | loader,| which l|
|000000e0| 6f 61 64 73 20 73 74 6f | 6e 65 20 63 72 61 63 6b |oads sto|ne crack|
|000000f0| 65 64 20 6d 61 70 20 66 | 69 6c 65 73 2e 2e 2e 00 |ed map f|iles....|
|00000100| 3b 00 3b 20 52 65 64 20 | 57 68 65 6e 20 45 78 63 |;.; Red |When Exc|
|00000110| 69 74 65 64 20 27 39 36 | 00 00 3b 44 65 66 69 6e |ited '96|..;Defin|
|00000120| 65 20 73 6f 6d 65 20 76 | 61 72 69 61 62 6c 65 73 |e some v|ariables|
|00000130| 00 80 33 2e 6c 20 20 20 | 70 6f 72 74 20 20 20 20 |..3.l   |port    |
|00000140| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00000150| 6f 75 72 20 61 72 65 78 | 78 20 70 6f 72 74 00 80 |our arex|x port..|
|00000160| 33 2e 77 20 20 20 65 78 | 69 74 66 6c 61 67 00 80 |3.w   ex|itflag..|
|00000170| 33 2e 77 20 20 20 73 75 | 63 00 80 33 2e 73 20 20 |3.w   su|c..3.s  |
|00000180| 20 72 00 80 33 2e 73 20 | 20 20 66 69 6c 00 00 80 | r..3.s |  fil...|
|00000190| c3 00 00 66 69 6c 3d 22 | 42 6c 69 74 7a 32 3a 52 |...fil="|Blitz2:R|
|000001a0| 65 64 48 65 6c 70 2f 52 | 45 44 4d 61 70 45 64 69 |edHelp/R|EDMapEdi|
|000001b0| 74 6f 72 2f 22 00 00 3b | 43 68 65 63 6b 20 66 6f |tor/"..;|Check fo|
|000001c0| 72 20 6d 61 70 20 65 64 | 69 74 6f 72 20 72 75 6e |r map ed|itor run|
|000001d0| 6e 69 6e 67 2e 2e 2e 00 | 80 0b 20 fe b7 28 22 4d |ning....|.. ..("M|
|000001e0| 61 70 45 64 69 74 6f 72 | 22 29 3d 30 00 20 20 97 |apEditor|")=0.  .|
|000001f0| 87 20 22 43 6f 75 6c 64 | 20 6e 6f 74 20 6c 6f 63 |. "Could| not loc|
|00000200| 61 74 65 20 4d 61 70 20 | 45 64 69 74 6f 72 20 41 |ate Map |Editor A|
|00000210| 52 65 78 78 20 70 6f 72 | 74 21 22 00 20 20 80 02 |Rexx por|t!".  ..|
|00000220| 00 80 c0 00 00 3b 43 72 | 65 61 74 65 20 61 20 6d |.....;Cr|eate a m|
|00000230| 65 73 73 61 67 65 20 70 | 6f 72 74 20 66 69 72 73 |essage p|ort firs|
|00000240| 74 2e 00 70 6f 72 74 3d | c2 81 28 22 54 65 73 74 |t..port=|..("Test|
|00000250| 50 72 6f 67 33 22 29 00 | 80 0b 20 70 6f 72 74 3d |Prog3").|.. port=|
|00000260| 30 00 20 20 97 87 20 22 | 46 61 69 6c 65 64 20 74 |0.  .. "|Failed t|
|00000270| 6f 20 6f 70 65 6e 20 41 | 52 65 78 78 20 70 6f 72 |o open A|Rexx por|
|00000280| 74 21 22 00 20 20 80 02 | 00 80 c0 00 00 3b 53 65 |t!".  ..|.....;Se|
|00000290| 74 20 6f 75 72 20 64 65 | 66 61 75 6c 74 20 70 6f |t our de|fault po|
|000002a0| 72 74 20 66 6f 72 20 63 | 6f 6d 6d 61 6e 64 73 20 |rt for c|ommands |
|000002b0| 74 6f 20 67 6f 20 74 6f | 00 c2 97 20 22 4d 61 70 |to go to|... "Map|
|000002c0| 45 64 69 74 6f 72 22 00 | 00 3b 42 72 69 6e 67 20 |Editor".|.;Bring |
|000002d0| 4d 61 70 20 45 64 69 74 | 6f 72 73 20 73 63 72 65 |Map Edit|ors scre|
|000002e0| 65 6e 20 74 6f 20 74 68 | 65 20 66 72 6f 6e 74 2e |en to th|e front.|
|000002f0| 2e 2e 00 c2 8a 20 22 41 | 43 54 49 56 41 54 45 22 |..... "A|CTIVATE"|
|00000300| 00 00 3b 41 64 64 20 6f | 75 72 20 6d 65 6e 75 20 |..;Add o|ur menu |
|00000310| 69 74 65 6d 73 00 c2 8a | 20 22 41 44 44 4d 45 4e |items...| "ADDMEN|
|00000320| 55 49 54 45 4d 20 4e 55 | 4c 4c 20 27 53 54 43 4d |UITEM NU|LL 'STCM|
|00000330| 61 70 4c 6f 61 64 65 72 | 27 22 00 c2 8a 20 22 41 |apLoader|'"... "A|
|00000340| 44 44 53 55 42 49 54 45 | 4d 20 4c 4f 41 44 20 27 |DDSUBITE|M LOAD '|
|00000350| 4c 6f 61 64 20 4d 61 70 | 2e 2e 2e 27 22 00 c2 8a |Load Map|...'"...|
|00000360| 20 22 41 44 44 53 55 42 | 49 54 45 4d 20 51 55 49 | "ADDSUB|ITEM QUI|
|00000370| 54 20 27 51 75 69 74 2e | 2e 2e 27 22 00 c2 8a 20 |T 'Quit.|..'"... |
|00000380| 22 52 45 4d 41 4b 45 4d | 45 4e 55 53 22 00 00 3b |"REMAKEM|ENUS"..;|
|00000390| 54 65 6c 6c 20 4d 61 70 | 20 45 64 69 74 6f 72 20 |Tell Map| Editor |
|000003a0| 74 6f 20 71 75 69 74 20 | 75 73 20 77 68 65 6e 20 |to quit |us when |
|000003b0| 69 74 20 71 75 69 74 73 | 00 c2 8a 20 22 52 45 4d |it quits|... "REM|
|000003c0| 45 4d 42 45 52 4d 45 22 | 00 00 3b 41 62 6f 75 74 |EMBERME"|..;About|
|000003d0| 20 69 6e 66 6f 72 6d 61 | 74 69 6f 6e 00 72 3d c2 | informa|tion.r=.|
|000003e0| 8a 28 22 52 45 51 55 45 | 53 54 20 27 44 65 6d 6f |.("REQUE|ST 'Demo|
|000003f0| 20 50 72 6f 67 72 61 6d | 20 33 7c 57 72 69 74 74 | Program| 3|Writt|
|00000400| 65 6e 20 62 79 20 53 74 | 65 70 68 65 6e 20 4d 63 |en by St|ephen Mc|
|00000410| 4e 61 6d 61 72 61 2e 7c | 28 63 29 31 39 39 36 20 |Namara.||(c)1996 |
|00000420| 52 57 45 27 20 27 5f 43 | 6f 6e 74 69 6e 75 65 27 |RWE' '_C|ontinue'|
|00000430| 22 29 00 00 65 78 69 74 | 66 6c 61 67 3d 30 00 00 |")..exit|flag=0..|
|00000440| 80 bb 00 20 20 65 76 2e | 6c 3d c2 84 00 20 20 80 |...  ev.|l=...  .|
|00000450| 0e 20 c2 8e 28 31 29 00 | 20 20 20 20 80 0f 20 22 |. ..(1).|    .. "|
|00000460| 4c 4f 41 44 22 00 20 20 | 20 20 20 20 c2 85 20 30 |LOAD".  |    .. 0|
|00000470| 00 20 20 20 20 20 20 80 | 06 20 44 6f 4c 6f 61 64 |.      .|. DoLoad|
|00000480| 00 20 20 20 20 80 0f 20 | 22 51 55 49 54 22 00 20 |.    .. |"QUIT". |
|00000490| 20 20 20 20 20 3b 49 6e | 66 6f 72 6d 20 6d 61 70 |     ;In|form map|
|000004a0| 20 65 64 69 74 6f 72 20 | 74 68 61 74 20 77 65 20 | editor |that we |
|000004b0| 61 72 65 20 71 75 69 74 | 69 6e 67 00 20 20 20 20 |are quit|ing.    |
|000004c0| 20 20 c2 85 20 30 00 20 | 20 20 20 20 20 c2 8a 20 |  .. 0. |     .. |
|000004d0| 22 46 4f 52 47 45 54 4d | 45 22 00 20 20 20 20 20 |"FORGETM|E".     |
|000004e0| 20 65 78 69 74 66 6c 61 | 67 3d 31 00 20 20 20 20 | exitfla|g=1.    |
|000004f0| 80 0f 20 22 51 55 49 54 | 50 4c 45 41 53 45 22 00 |.. "QUIT|PLEASE".|
|00000500| 20 20 20 20 20 20 3b 4d | 61 70 20 45 64 69 74 6f |      ;M|ap Edito|
|00000510| 72 20 74 65 6c 6c 69 6e | 67 20 75 73 20 74 6f 20 |r tellin|g us to |
|00000520| 71 75 69 74 20 51 55 49 | 45 54 4c 59 20 28 6e 6f |quit QUI|ETLY (no|
|00000530| 20 41 52 65 78 78 20 62 | 61 63 6b 20 74 6f 20 4d | ARexx b|ack to M|
|00000540| 61 70 45 64 69 74 6f 72 | 29 00 20 20 20 20 20 20 |apEditor|).      |
|00000550| c2 85 20 30 00 20 20 20 | 20 20 20 65 78 69 74 66 |.. 0.   |   exitf|
|00000560| 6c 61 67 3d 31 00 20 20 | 20 20 80 10 00 20 20 20 |lag=1.  |  ...   |
|00000570| 20 20 20 c2 85 20 30 00 | 20 20 80 02 20 80 0e 00 |   .. 0.|  .. ...|
|00000580| 80 bc 20 65 78 69 74 66 | 6c 61 67 3d 31 00 80 02 |.. exitf|lag=1...|
|00000590| 00 00 44 6f 4c 6f 61 64 | 3a 00 20 20 72 3d c2 8a |..DoLoad|:.  r=..|
|000005a0| 28 22 4c 4f 41 44 52 45 | 51 55 45 53 54 20 27 53 |("LOADRE|QUEST 'S|
|000005b0| 65 6c 65 63 74 20 53 54 | 43 20 6d 61 70 20 66 69 |elect ST|C map fi|
|000005c0| 6c 65 2e 2e 2e 27 20 22 | 2b 66 69 6c 2b 22 22 29 |le...' "|+fil+"")|
|000005d0| 00 20 20 80 0b 20 72 3c | 3e 22 22 00 20 20 20 20 |.  .. r<|>"".    |
|000005e0| 66 69 6c 3d 72 00 20 20 | 20 20 73 75 63 3d bc 0f |fil=r.  |  suc=..|
|000005f0| 00 00 20 20 20 20 3b 41 | 74 74 65 6d 70 74 20 74 |..    ;A|ttempt t|
|00000600| 6f 20 6c 6f 61 64 20 74 | 68 65 20 66 69 6c 65 20 |o load t|he file |
|00000610| 69 6e 00 20 20 20 20 80 | 0b 20 a5 8f 28 66 69 6c |in.    .|. ..(fil|
|00000620| 2c 30 29 00 00 20 20 20 | 20 20 20 3b 43 68 65 63 |,0)..   |   ;Chec|
|00000630| 6b 20 74 6f 20 73 65 65 | 20 69 66 20 69 74 20 69 |k to see| if it i|
|00000640| 73 20 61 6e 20 53 74 6f | 6e 65 20 43 72 61 63 6b |s an Sto|ne Crack|
|00000650| 65 64 20 66 69 6c 65 00 | 20 20 20 20 20 20 80 0b |ed file.|      ..|
|00000660| 20 da 03 28 a5 91 28 30 | 29 2c 34 29 3d 22 53 34 | ..(..(0|),4)="S4|
|00000670| 30 34 22 00 00 20 20 20 | 20 20 20 20 20 3b 49 66 |04"..   |     ;If|
|00000680| 20 73 6f 2c 20 72 65 73 | 65 72 76 65 20 65 6e 6f | so, res|erve eno|
|00000690| 75 67 68 20 6d 65 6d 6f | 72 79 20 74 6f 20 75 6e |ugh memo|ry to un|
|000006a0| 70 61 63 6b 20 69 74 20 | 69 6e 74 6f 00 20 20 20 |pack it |into.   |
|000006b0| 20 20 20 20 20 80 0b 20 | a5 95 20 28 31 2c 88 81 |     .. |.. (1,..|
|000006c0| 28 a5 91 28 30 29 29 29 | 00 00 20 20 20 20 20 20 |(..(0)))|..      |
|000006d0| 20 20 20 20 3b 44 65 63 | 72 75 6e 63 68 20 74 68 |    ;Dec|runch th|
|000006e0| 65 20 66 69 6c 65 00 20 | 20 20 20 20 20 20 20 20 |e file. |        |
|000006f0| 20 89 01 20 a5 91 28 30 | 29 2c a5 91 28 31 29 00 | .. ..(0|),..(1).|
|00000700| 00 20 20 20 20 20 20 20 | 20 20 20 3b 41 74 74 65 |.       |   ;Atte|
|00000710| 6d 70 74 20 74 6f 20 73 | 61 76 65 20 74 68 65 20 |mpt to s|ave the |
|00000720| 66 69 6c 65 00 20 20 20 | 20 20 20 20 20 20 20 80 |file.   |       .|
|00000730| 0b 20 a5 90 28 22 54 3a | 74 6d 70 2e 6d 61 70 22 |. ..("T:|tmp.map"|
|00000740| 2c 31 29 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |,1).    |        |
|00000750| 73 75 63 3d 31 00 00 20 | 20 20 20 20 20 20 20 20 |suc=1.. |        |
|00000760| 20 20 20 3b 54 65 6c 6c | 20 74 68 65 20 4d 61 70 |   ;Tell| the Map|
|00000770| 20 45 64 69 74 6f 72 20 | 74 6f 20 6c 6f 61 64 20 | Editor |to load |
|00000780| 74 68 65 20 6d 61 70 20 | 69 6e 00 20 20 20 20 20 |the map |in.     |
|00000790| 20 20 20 20 20 20 20 c2 | 8a 20 22 4c 4f 41 44 20 |       .|. "LOAD |
|000007a0| 54 3a 74 6d 70 2e 6d 61 | 70 22 00 20 20 20 20 20 |T:tmp.ma|p".     |
|000007b0| 20 20 20 20 20 80 c0 00 | 20 20 20 20 20 20 20 20 |     ...|        |
|000007c0| 20 20 a5 93 20 31 00 20 | 20 20 20 20 20 20 20 80 |  .. 1. |       .|
|000007d0| c0 00 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 |..      |...     |
|000007e0| 20 a5 93 20 30 00 20 20 | 20 20 80 c0 00 20 20 20 | .. 0.  |  ...   |
|000007f0| 20 80 0b 20 73 75 63 3d | 30 00 20 20 20 20 20 20 | .. suc=|0.      |
|00000800| c2 8a 20 22 52 45 51 55 | 45 53 54 20 27 43 6f 75 |.. "REQU|EST 'Cou|
|00000810| 6c 64 20 6e 6f 74 20 6c | 6f 61 64 20 6d 61 70 2e |ld not l|oad map.|
|00000820| 27 22 00 20 20 20 20 80 | c0 00 20 20 80 c0 00 80 |'".    .|..  ....|
|00000830| 07 00 00                |                         |...     |        |
+--------+-------------------------+-------------------------+--------+--------+